1 Public Class FrmReturn_PRINT
2
3     Private Sub rbreturnstocks_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbreturnstocks.CheckedChanged
4         
'globalFRM = "deffective_po_return"
5     End Sub
6
7     Private Sub cmdprint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdprint.Click
8         Dim Report As New FrmREPORTS
9         If rbreturnstocks.Checked Then
10             globalFRM =
"deffective_po_return"
11             Rpt_SqlStr =
"SELECT * FROM TBL_Deffective_PO_Return WHERE Return_Date >='" & Format(dtfrom.Value, "MM/dd/yyyy") & "' AND Return_Date <='" & Format(dtto.Value, "MM/dd/yyyy") & "'"
12             Audit_Trail(xUser_ID, TimeOfDay,
"Print Report - Deffective Stocks Return ")
13             Report.Show()
14             
'FrmREPORTS.Show()
15         Else
16             globalFRM =
"return_customer"
17             Rpt_SqlStr =
"SELECT * FROM TBL_Pending_Item WHERE Return_Date >='" & Format(dtfrom.Value, "MM/dd/yyyy") & "' AND Return_Date <='" & Format(dtto.Value, "MM/dd/yyyy") & "' And Returnx ='Yes'"
18             Report.Show()
19             
'FrmREPORTS.Show()
20         End If
21         Me.Close()
22     End Sub
23
24     Private Sub cmdcancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdcancel.Click
25         Me.Close()
26     End Sub
27 End Class


Gõ tìm kiếm nhanh...